Monster Media 1996 #15/Monster Media Number 15 (Monster Media)(July 1996).ISO/prog_d/odbcall.zip/KEYBUILD.DFM/KEYBUILD.txt

Text File | 1995-12-20 | 6KB | 316 lines

object frmUpdateTblInfo: TfrmUpdateTblInfo
  Left = 128
  Top = 97
  Width = 542
  Height = 388
  Caption = 'Update Table Information'
  Font.Color = clBlack
  Font.Height = -12
  Font.Name = 'Arial'
  Font.Style = []
  PixelsPerInch = 96
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  TextHeight = 15
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 534
    Height = 42
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 14
      Top = 10
      Width = 34
      Height = 15
      Caption = 'Table:'
    end
    object Tables: TComboBox
      Left = 64
      Top = 7
      Width = 206
      Height = 22
      Style = csDropDownList
      ItemHeight = 15
      Sorted = True
      TabOrder = 0
      Visible = False
    end
    object Table: TEdit
      Left = 64
      Top = 7
      Width = 206
      Height = 22
      TabOrder = 1
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 42
    Width = 207
    Height = 278
    Align = alLeft
    TabOrder = 1
    object Label2: TLabel
      Left = 1
      Top = 1
      Width = 205
      Height = 23
      Align = alTop
      Alignment = taCenter
      AutoSize = False
      Caption = 'Available Columns/Fields:'
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object AvailFields: TListBox
      Left = 1
      Top = 24
      Width = 205
      Height = 154
      Align = alClient
      ItemHeight = 15
      Sorted = True
      TabOrder = 0
      OnClick = AvailFieldsClick
      OnDblClick = AddEditClick
    end
    object Panel6: TPanel
      Left = 1
      Top = 178
      Width = 205
      Height = 99
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      object Label5: TLabel
        Left = 14
        Top = 25
        Width = 66
        Height = 15
        Caption = 'Actual Field:'
      end
      object Label6: TLabel
        Left = 2
        Top = 52
        Width = 78
        Height = 15
        Caption = 'Display Label:'
      end
      object Label7: TLabel
        Left = 4
        Top = 1
        Width = 109
        Height = 15
        Caption = 'Extended Field Info:'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label8: TLabel
        Left = 2
        Top = 78
        Width = 78
        Height = 15
        Caption = 'Display Width:'
      end
      object ActualField: TEdit
        Left = 89
        Top = 21
        Width = 112
        Height = 22
        TabOrder = 0
        OnExit = ActualFieldExit
      end
      object DisplayLabel: TEdit
        Left = 89
        Top = 48
        Width = 112
        Height = 22
        TabOrder = 1
        OnExit = DisplayLabelExit
      end
      object DisplaySize: TEdit
        Left = 89
        Top = 74
        Width = 112
        Height = 22
        TabOrder = 2
        OnExit = DisplaySizeExit
      end
    end
  end
  object Panel3: TPanel
    Left = 207
    Top = 42
    Width = 53
    Height = 278
    Align = alLeft
    TabOrder = 2
    object AddKey: TButton
      Left = 9
      Top = 19
      Width = 35
      Height = 23
      Caption = '>'
      TabOrder = 0
      OnClick = AddKeyClick
    end
    object AddAllKeys: TButton
      Left = 9
      Top = 46
      Width = 35
      Height = 23
      Caption = '>>'
      TabOrder = 1
      OnClick = AddAllKeysClick
    end
    object RemoveAllKeys: TButton
      Left = 9
      Top = 72
      Width = 35
      Height = 23
      Caption = '<<'
      TabOrder = 2
      OnClick = RemoveAllKeysClick
    end
    object RemoveKey: TButton
      Left = 9
      Top = 99
      Width = 35
      Height = 23
      Caption = '<'
      TabOrder = 3
      OnClick = RemoveKeyClick
    end
    object AddEdit: TButton
      Left = 9
      Top = 153
      Width = 35
      Height = 23
      Caption = '>'
      TabOrder = 4
      OnClick = AddEditClick
    end
    object AddAllEdit: TButton
      Left = 9
      Top = 180
      Width = 35
      Height = 23
      Caption = '>>'
      TabOrder = 5
      OnClick = AddAllEditClick
    end
    object RemoveAllEdit: TButton
      Left = 9
      Top = 206
      Width = 35
      Height = 23
      Caption = '<<'
      TabOrder = 6
      OnClick = RemoveAllEditClick
    end
    object RemoveEdit: TButton
      Left = 9
      Top = 233
      Width = 35
      Height = 23
      Caption = '<'
      TabOrder = 7
      OnClick = RemoveEditClick
    end
  end
  object Panel4: TPanel
    Left = 260
    Top = 42
    Width = 274
    Height = 278
    Align = alClient
    TabOrder = 3
    object Label3: TLabel
      Left = 1
      Top = 1
      Width = 272
      Height = 23
      Align = alTop
      AutoSize = False
      Caption = '  Key Fields:'
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel
      Left = 1
      Top = 113
      Width = 272
      Height = 23
      Align = alTop
      AutoSize = False
      Caption = '  Editable Fields:'
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object KeyFields: TListBox
      Left = 1
      Top = 24
      Width = 272
      Height = 89
      Align = alTop
      Ctl3D = True
      ItemHeight = 15
      ParentCtl3D = False
      Sorted = True
      TabOrder = 0
      OnDblClick = RemoveKeyClick
    end
    object EditFields: TListBox
      Left = 1
      Top = 136
      Width = 272
      Height = 141
      Align = alClient
      ItemHeight = 15
      Sorted = True
      TabOrder = 1
      OnDblClick = RemoveEditClick
    end
  end
  object Panel5: TPanel
    Left = 0
    Top = 320
    Width = 534
    Height = 41
    Align = alBottom
    TabOrder = 4
    object btnOk: TBitBtn
      Left = 156
      Top = 4
      Width = 89
      Height = 33
      TabOrder = 0
      OnClick = btnOkClick
      Kind = bkOK
    end
    object btnCancel: TBitBtn
      Left = 250
      Top = 5
      Width = 89
      Height = 33
      TabOrder = 1
      Kind = bkCancel
    end
  end
end